Business Assistant/Business Assistant.iso/home/chkmstr/check.prg

Text File | 1990-03-15 | 54KB | 2,455 lines

PROCEDURE CHEXMENU
ON ESCAPE DO CHEXMENU
SET TALK OFF
SET SAFETY OFF
SET ECHO OFF
SET MENU OFF
SET DELETED ON
PRTC= "0"
ARC= "0"
MDATE=DATE()
IF ACCTKT= "0"
ACCTNUM=0
CLEAR
IF ISCOLOR()
SET COLOR TO W/R,X/B,W
ELSE
SET COLOR TO W/B+,W/B,W
ENDIF
CLEAR
@2,1 TO 22,78 DOUBLE
@4,20 SAY "ENTER ACCOUNT NUMBER ** " GET ACCTNUM
@4,55 SAY " **"
@6,14 SAY "*****************************************************"
@8,14 SAY "            WARNING !!!!!!!!!!!!!!!!"
@10,14 SAY "*****************************************************"
@12,14 SAY "   UNDER NO CIRCUMSTANCES REPLY { C OR CANCEL }"
@13,14 SAY "   TO ANY MESSAGE YOU MAY SEE ON SCREEN !!!!!!"
@14,14 SAY "REPLY ONLY { S OR SUSPEND } AND THEN PRESS { F9 }."
@15,14 SAY "TO DO OTHERWISE WILL DESTROY ALL ACCOUNT DATA !!!!"
@17,14 SAY "*****************************************************"
@19,14 SAY "YOU MAY CANCEL ANY DATA ENTRY AND RETURN TO THE"
@20,14 SAY "  MAIN MENU BY PRESSING THE { ESCAPE } KEY !!"
READ
IF ISCOLOR()
SET COLOR TO W/B,W/R,BG
ELSE
SET COLOR TO
ENDIF
IF ACCTNUM-ACCTN<>0
@22,20 SAY "SORRY---ACCOUNT NUMBER NOT VALID !!!!!!!"
WAIT
QUIT
ENDIF
ENDIF
ACCTKT= "1"
MYEAR=YEAR(MDATE)
IF ARCYEAR <> MYEAR
CLEAR
@2,1 TO 20,78 DOUBLE
@4,20 SAY "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
@6,20 SAY "NOTE - NOTE - NOTE - NOTE - NOTE - NOTE"
@8,20 SAY "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
@10,20 SAY "   HAPPY     NEW      YEAR !!!!!!!!!"
@12,20 SAY " IT IS TIME TO RUN AN ACCOUNT SUMMARY"
@13,20 SAY "  AND TRANSFER LAST YEARS CHECK AND"
@14,20 SAY " DEPOSIT REGISTERS TO A BACK-UP FILE."
@16,20 SAY "  IF YOU WISH TO DO IT AT THIS TIME,"
@17,20 SAY "  REPLY { Y }.IF YOU PREFER TO DO IT"
@18,20 SAY "     AT A LATER TIME, REPLY { N }."
ANS=" "
DO WHILE .NOT. (UPPER(ANS) $ 'YN')
WAIT "TYPE { Y/N }" TO ANS
ENDDO
IF UPPER(ANS) = "Y"
DO PRTSUM
ENDIF
ENDIF
CLEAR
DO WHILE .T.
CHOICE= " "
@1,15 TO 5,63 DOUBLE
@3,25 SAY 'CHECKING ACCOUNT CONTROL MENU'
@5,6 TO 22,73 DOUBLE
@7,20 SAY '1 } UPDATE CHECK REGISTER'
@9,20 SAY '2 } UPDATE DEPOSIT REGISTER'
@11,20 SAY '3 } PRINT CHECKS, REPORTS, SUMMARIES'
@13,20 SAY '4 } RECONCILE ACCOUNT TO BANK'
@15,20 SAY '5 } TRANSFER FUNDS BETWEEN ACCOUNTS {*P*}'
@17,20 SAY '6 } EXIT TO DBASE III'
@19,20 SAY '7 } EXIT TO DOS'
@ 21,20 SAY 'ENTER YOUR CHOICE' GET CHOICE
READ
CHOICEB=CHOICE
DO CASE
CASE CHOICE="1"
DO CHEXMANG
CASE CHOICE="2"
DO DEPMANG
CASE CHOICE="3"
DO PRTMENU
CASE CHOICE="4"
DO REXCHEX
CASE CHOICE="5"
DO TRANACCT
CASE CHOICE="6"
CLEAR
@5,15 SAY "YOU HAVE SELECTED TO EXIT THE CHEXMENU TO DBASE III."
@7,15 SAY "IS THAT WHAT YOU WANT TO DO ?? ANSWER {Y} OR {N}."
@11,15 SAY "IF YOU ANSWER {Y}, PRESS THE {F10} KEY WHEN YOU WISH"
@13,15 SAY "TO RETURN TO THE CHECK MANAGMENT PROGRAM MENU !!!!"
EMENU=" "
DO WHILE .NOT. (UPPER(EMENU) $ 'YN')
WAIT " " TO EMENU
ENDDO
IF UPPER(EMENU) = "N"
DO CHEXMENU
ENDIF
SET FUNCTION 10 TO "DO START;"
ACCTKT= "0"
CLEAR
@10,10 SAY "GOODBYE, PROGRAM TERMINATED !!"
@12,20 SAY "SAVING DATA FILES ------------------------------"
@14,10 SAY "PRESS THE { F10 } KEY TO RETURN TO CHEXMENU."
RELEASE LP,ACCTNUM,VALU,BC,AC,CC,DC,EC,FC,GC,HC,REXCT,REXCA,STATS,;
REXCF,REXDT,REXDF,ERROR,REXSEQ,REXDA,REXA,B11T,BT,CTP,STATS2,SELC,SELD
RELEASE ACTDB,ACTEB,ACTFB,ACTGB,ACTHB,ACB,BCB,DEPSUM,C05S,ACTAB,ACTBB,;
CCB,DCB,ECB,CTB,GTB,MYEAR,ASUM,BSUM,CSUM,DSUM,ESUM,FSUM,A00S,CMPBAL,
RELEASE A01S,A02S,A03S,A04S,A05S,A06S,A07S,A08S,A09S,A10S,A11S,A12S,;
B00S,B01S,B02S,B03S,B04S,B05S,B06S,B07S,B08S,B09S,B10S,B11S,B12S,C00S
RELEASE C01S,C02S,C03S,C04S,D00S,D01S,D02S,E00S,E01S,E02S,F00S,F01S,F02S,;
ATS,BTS,CTS,DTS,ETS,FTS,GTS,HTS,CKARCV,DPARCV,RETYEAR,RTYV,PRT_TOT,DPS
RELEASE C00P,C01P,C02P,C03P,C04P,C05P,CD,ACTCB,CTN,CTR,CHKCT,VALUE,;
AMOUNTM,RECD,ITS,ISUM,B13T,B14T,B13S,B14S,TSTC,IC,RETN,B03ST,REXBAL
DO CASE
CASE CONFIG="A"
SAVE TO A:CHEXMANG
CASE CONFIG="B"
SAVE TO B:CHEXMANG
CASE CONFIG="C"
SAVE TO C:\CHEXMANG\CHEXMANG
CASE CONFIG="D"
SAVE TO D:\CHEXMANG\CHEXMANG
ENDCASE
ON ESCAPE
SET TALK ON
SET SAFETY ON
SET MENU ON
CLOSE DATABASE
CANCEL
CASE CHOICE="7"
CLEAR
@10,15 SAY "YOU HAVE SELECTED TO EXIT THE CHEXMENU TO  { DOS }."
@14,15 SAY "IS THAT WHAT YOU WANT TO DO ?? ANSWER {Y} OR {N}."
EMENU=" "
DO WHILE .NOT.(UPPER(EMENU) $ 'YN')
WAIT " " TO EMENU
ENDDO
IF UPPER(EMENU) = "N"
DO CHEXMENU
ENDIF
ACCTKT= "0"
CLEAR
@10,20 SAY "SAVING DATA FILES ----------------------------------"
RELEASE LP,ACCTNUM,VALU,BC,AC,CC,DC,EC,FC,GC,HC,REXCT,REXCA,STATS,;
REXCF,REXDT,REXDF,ERROR,REXSEQ,REXDA,REXA,B11T,BT,CTP,STATS2,SELC,SELD
RELEASE ACTDB,ACTEB,ACTFB,ACTGB,ACTHB,ACB,BCB,DEPSUM,C05S,ACTAB,ACTBB,;
CCB,DCB,ECB,CTB,GTB,MYEAR,ASUM,BSUM,CSUM,DSUM,ESUM,FSUM,A00S,CMPBAL,
RELEASE A01S,A02S,A03S,A04S,A05S,A06S,A07S,A08S,A09S,A10S,A11S,A12S,;
B00S,B01S,B02S,B03S,B04S,B05S,B06S,B07S,B08S,B09S,B10S,B11S,B12S,C00S
RELEASE C01S,C02S,C03S,C04S,D00S,D01S,D02S,E00S,E01S,E02S,F00S,F01S,F02S,;
ATS,BTS,CTS,DTS,ETS,FTS,GTS,HTS,CKARCV,DPARCV,RETYEAR,RTYV,PRT_TOT,DPS
RELEASE C00P,C01P,C02P,C03P,C04P,C05P,CD,ACTCB,CTN,CTR,CHKCT,VALUE,;
AMOUNTM,RECD,ITS,ISUM,B13T,B14T,B13S,B14S,TSTC,IC,RETN,B03ST,REXBAL
DO CASE
CASE CONFIG="A"
SAVE TO A:CHEXMANG
CASE CONFIG="B"
SAVE TO B:CHEXMANG
CASE CONFIG="C"
SAVE TO C:\CHEXMANG\CHEXMANG
CASE CONFIG="D"
SAVE TO D:\CHEXMANG\CHEXMANG
ENDCASE
CLOSE DATABASE
QUIT
OTHERWISE
@23,11 SAY "**** ENTER A NUMBER FROM 1 TO 7. YOU ENTERED { ";
+CHOICEB+" } ! ****"
ENDCASE
ENDDO
RETURN
PROCEDURE CHEXSTAT
EDISP= " "
CLEAR
DAY=CDOW(DATE())
@1,25 SAY "CHECKING ACCOUNT STATISTICS :"
@0,0 SAY "NEXT SEQ#" GET SEQ
@3,8 SAY "FOR ACCOUNT NUMBER" GET ACCTN
@3,41 SAY "DATE" GET MDATE
@3,59 SAY "DAY" GET DAY
@5,15 SAY "############  ACCOUNT DISTRIBUTION : #############"
@7,22 SAY A+"  $$" GET ACCTA
@8,22 SAY B+"  $$" GET ACCTB
@9,1 SAY "PRESS { C } {*B*}"
@9,22 SAY C+"  $$" GET ACCTC
@10,1 SAY "PRESS { D }"
@10,22 SAY D+"  $$" GET ACCTD
@11,22 SAY E+"  $$" GET ACCTE
@12,1 SAY "REGISTRATION"
@12,22 SAY F+"  $$" GET ACCTF
@13,1 SAY "#  " + STR(RNUM,4)
@13,22 SAY G+"  $$" GET ACCTG
@14,22 SAY H+"  $$" GET ACCTH
@15,15 SAY "TOTAL OF CHECKS JUST WRITTEN   $$" GET WKCHEX_TOT
@16,15 SAY "TOTAL OF DEPOSITS JUST MADE    $$" GET ADDDEP_TOT
@18,13 SAY BANK1 + " BALANCE   $$" GET GRAND_TOTL
@19,1 SAY "PRESS { I }"
@19,13 SAY BANK2 + " BALANCE   $$" GET BANK2V
@20,15 SAY "COMBINED BALANCE               $$" GET COMBINE
@22,1 SAY DB10 GET STAT2
@22,30 SAY "*********************"
@22,53 SAY DA02 GET STAT
WAIT "PRESS { E } TO EXIT" TO EDISP
IF UPPER(EDISP)= "I"
CLEAR GETS
ATS=0.00
@19,1 SAY "ENTER INTREST AMOUNT" GET ATS
READ
BANK2V=BANK2V+ATS
ACCTA=ACCTA+ATS
COMBINE=COMBINE+ATS
@7,22 SAY A+"  $$" GET ACCTA
@19,0
@19,13 SAY BANK2 + " BALANCE   $$" GET BANK2V
@20,15 SAY "COMBINED BALANCE               $$" GET COMBINE
@23,0
WAIT
ENDIF
IF UPPER(EDISP)= "C"
DO CSTATS
ENDIF
IF UPPER(EDISP)= "D"
PRT=" "
CLEAR
@1,1 TO 8,78
@3,12 SAY "ENTER INTREST PERCENTAGE AS A *WHOLE* NUMBER" GET TRAND
READ
@5,25 SAY "TO PRINT TO SCREEN, ENTER { S }"
@6,25 SAY "TO PRINT TO PRINTER, ENTER { P }"
DO WHILE .NOT. (UPPER(PRT) $ 'SP')
WAIT " " TO PRT
ENDDO
IF TRAND >1
TRAND=TRAND*.00083
TRAND=VAL(STR(TRAND,7,5))
ENDIF
USE KIMACT
IF UPPER(PRT)= "S"
DISPLAY ALL
WAIT
ELSE
SET PRINT ON
CLEAR
@10,10 SAY "PRINTING DETAIL RECORDS ----------------"
SET CONSOLE OFF
LIST
SET CONSOLE ON
SET PRINT OFF
ENDIF
ENDIF
IF CHOICE= "2"
DO CHEXMENU
ENDIF
IF CHOICE= "5"
DO CHEXMENU
ENDIF
DO PRTMENU
RETURN
PROCEDURE PRTMENU
CLEAR
DO WHILE .T.
CHOICE= " "
@1,15 TO 5,63 DOUBLE
@3,30 SAY 'PRINT CONTROL MENU'
@5,6 TO 22,73 DOUBLE
@7,25 SAY '1 } PRINT CHECKS'
@9,25 SAY '2 } PRINT REGISTER FUNCTION'
@11,25 SAY '3 } SEARCH ON CHECK OR DEPOSIT {*P*}'
@13,25 SAY '4 } PRINT ACCOUNT SUMMERIES    {*P*}'
@15,25 SAY '5 } DISPLAY ACCOUNT STATISTICS'
@17,25 SAY '6 } BACKUP FILES TO FLOPPY DISK'
@19,25 SAY '7 } EXIT BACK TO MAIN MENU'
@21,25 SAY 'ENTER YOUR CHOICE' GET CHOICE
READ
CHOICEB=CHOICE
DO CASE
CASE CHOICE="1"
DO PRINTCHEX
CASE CHOICE="2"
DO CHEXDISP
CASE CHOICE="3"
DO CHKSRCH
CASE